;;;QQ:67762207
[@ConvertRootinBook]
{
#DEFINE A0{BOOKNAME} A0
#DEFINE A1{CONVERTBOOKNAME} A1
#DEFINE S0{BOOKLEVEL} S0

#IF
#ACT
Mov A0{BOOKNAME} ""
Mov A1{CONVERTBOOKNAME} ""
Mov S0{BOOKLEVEL} 0
Mov D0{BOOKPRICE} 0

#IF
#ACT
Mov A0{BOOKNAME} %ARG(1)
AddStr A1{CONVERTBOOKNAME} %A0
AddStr A1{CONVERTBOOKNAME} "ؼ"
Mov S0{BOOKLEVEL} %ARG(2)
Mov P1 %S0{BOOKLEVEL}
Mov P2 100
Mul P1 P2
Mov D0{BOOKPRICE} %P9
goto @ConvertRootinBook_Step1

[@ConvertRootinBook_Step1]
#SAY
ֻҪ֧<$OUTPUT(D0)>ңҲܰ<$OUTPUT(A0)>ؼҪ\\
<õģҪؼ/@ConvertRootinBook_Step2>\
<Ҫ/@exit>

[@ConvertRootinBook_Step2]
#IF
checkitem %A0{BOOKNAME} 1
#ACT
goto @ConvertRootinBook_Step3
#ELSESAY
鶼ûУҽʲôأ \\
< /@exit>

[@ConvertRootinBook_Step3]
#IF
checkgold %D0{BOOKPRICE}
checkitem %A0{BOOKNAME} 1
#ACT
goto @ConvertRootinBook_Step4
#ELSESAY
ѼؼҪķྫʱ䣬ѵȡʵı \\
< /@exit>

[@ConvertRootinBook_Step4]
#IF
checkitem %A0{BOOKNAME} 1
Random 3
#ACT
take %A0{BOOKNAME} 1
#ELSEACT
take %A0{BOOKNAME} 1
take  %D0{BOOKPRICE}
give %A1{CONVERTBOOKNAME} 1
#SAY
˼ļ̫ˣֶ壬ûؼȥұɣ\
< /@exit>
#ELSESAY
ؼѾˣѧ湤򣬾ȫԼŬˣ\\
< /@exit>
}
;;;QQ:67762207